www.gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGtiaoDm.asp

    <!-- #include file="include/Config.asp" -->
<!-- #include file="include/Conn.asp" -->


<%
	'///*********************************
	'   嵌入代码式 广告条的显示程序
	'********************************///

	if trim(request("id"))<>"" then
    
		if xmltype=1 then ''  xml 存取    
		    strSourceFile = Server.MapPath(dataxml&"/Advertisement/"&trim(request.querystring("id"))&"/adv.xml")
		
		    Set objXML =Server.CreateObject("Microsoft.XMLDOM")  '创建一个XML对像
		   
		    objXML.load(strSourceFile)  '把XML文件读入内存     
		
			Dim xml
			
			Set xml=objXML.documentElement.selectSingleNode("Advertisement")  '选取节点 Advertisement
			
			ADintro = xml.childNodes.item(2).text
		else
		
				
			Set tempRs=Server.CreateObject("ADODB.Recordset")
			tempRs.open "select * from Advertisement where ADid="&id,conn,3,3,1
			if not tempRs.eof then
			ADintro=tempRs(2)
			end if
			tempRs.close
			Set tempRs= nothing

		end if	

			
			response.write ADintro
    else
    
    response.write "<center><br><br>无效广告。</center>"
    end if
%>